home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr10
/
tvprompt.zip
/
CRT.LIB
< prev
next >
Wrap
Text File
|
1992-04-08
|
640b
|
25 lines
package CRT is
-- Copyright 1991,92 Tom Moran
Line_Width_In_Bytes:constant:=80;
Logical_Screen_Height: constant Integer := 100;
-- odd lines duplicate even, giving double height characters for visibility
type Bytes is range 0 .. 255;
for Bytes'Size use 8;
White:constant Bytes:=16#FF#;
type Video_Bytes is array (Integer range <>) of Bytes;
subtype X_Range is Integer range 0 .. Line_Width_In_Bytes-1;
subtype Full_Scan_Lines is Video_Bytes(X_Range);
procedure Scroll(New_Scan_Line: Full_Scan_Lines);
procedure Open_White_Screen;
procedure Revert_To_Text;
end CRT;